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AS REGRAS DO JOGO NORMAL 



E DA VERSAO COMPUTADORIZADA 
FUNCIONAMENTQ D O PROGRAMA 

AS DECISCJES DA BANCA 

PERDER OU GANHAR 



Para completar nosso jogo da 
vinte-e-um, s6 falta ensinar o 
computador a fazar as vezes da banca. 
E hora, portanto, de se preparer para 
enfrenta-lo: conheca as regras do jogo. 



Antes de passar a ultima secao do 
programa, convem conhecer as regras 
do jogo. 

O vinte-e-um utiliza urn baralho com 
52 cartas. As cartas que vao do 2 ao 10 
tern valor igual ao seu niimero. As fl- 
guras valem 1 pontos e o as pode valer 
1 ou 1 1 , conforme a decisao do jogador. 
Em nosso jogo, o computador calcula 
os pontos automaticamente. 



Joga-se, em geral, com dinheiro ou 
fichas. Nosso computador e programa- 
do para marcar os pontos com fichas. 
Cabe a ele desempenhar o papel da ban- 
ca, sendo sempre quern da as cartas. 

No inicio do jogo, o computador em- 
baralha as cartas e distribui duas, vira- 
das para baixo ("fechadas"). A carta do 
jogador aparece "aberta" na tela, mas 
o programa fot feito de modo que o 
computador nao conheca as cartas do 
jogador. Este faz sua aposta, antes que 
ele e a banca recebam outra carta. 

O objetivo do jogo e ter uma mao 
melhor que a da banca, isto e, urn maior 
niimero de pontos na soma das cartas. 
Quern tiver um total maior que 21 , estou- 
rou, perdendo a aposta. Com um total 
entre 16 e 21, o jogador s6 ganha da 



banca se esta possuir um total menor, 
ou se tiver estourado. Assim, a banca 
tern sempre a vantagem do empate. 

Existem duas maos especiais — o 
"natural": um as e um dez ou um as e 
uma figura, somando 21 em duas car- 
tas; e a "mao de cinco" : uma mao com 
cinco cartas, cujo total e igual ou infe- 
rior a 21 . Um natural do jogador ganha 
de qualquer mao da banca, exceto de 
outro natural. Uma mao de cinco tam- 
bem ganha de qualquer coisa, menos de 
um natural ou outra mao de cinco. 



C0M0 FUNCIONA PROGRAMA 



Depois que o jogador recebeu a se- 
gunda carta, o programa verifica se ele 
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conseguiu urn natural, Se nao conse- 
guiu, mas obteve urn total maior ou 
igual a 16, e esta satisfeito com este va- 
lor, ele pode "parar", nao recebendo 
mais cartas. A vez de jogar passa, en- 
tao, a banca. Se obteve um total infe- 
rior a 16, ou nao esta satisfeito com o 
valor de sua mao, pode receber mais car- 
tas pelo ato de "pedir" ou de "com- 
prar". No jogo normal, quando se com- 
pra uma carta, a aposta original e do- 
brada e a banca da a carta fechada. Na 
nossa versao computadorizada, nao h& 
diferenca entre cartas fechadas ou aber- 
tas, e pedir cartas nao dobra a aposta, 
pois todas sao dadas abertas. jogador 
nao podera comprar depois de ter pedi- 
do alguma carta e, ao chegar na quinta 
carta, s6 podera pedir. Ap6s cada carta 
fornecida, o computador verifica se o 
jogador ou a banca ultra passaram os 2 1 
pontos. 

Quando o jogador estoura, a banca 
ganha a aposta e nao precisa jogar. 



Quando ele tern 21 ou menos, a banca 
mostra suas duas cartas e decide se pe- 
de mais cartas ou para por aii. Se as 
duas cartas da banca sao um natural, ela 
ganha a aposta. Caso contrario, a ban- 
ca pede mais cartas ate ficar satisfeita 
com o total, conseguir uma mao de cin- 
co ou entao estourar — para alegria do 
jogador. 

Se a banca para com um total menor 
que 21 e sem ter obtido uma mao de cin- 
co, surge na tela a mensagem: a BAN- 
CA PAGA... totals que tenham um 
ponto a mais que o valor de sua mao. 
Se a mao da banca for 2 1 , a mensagem 
NATURAIS E MAOS DE CINCO 
APENAS e mostrada. E, caso obtenha 
uma mao de cinco, o jogador 6 infor- 
mado: APENAS NATURAIS. No jo- 
go convencional, cada jogador declara- 
ria o valor de sua mao, se tivesse venci- 
do a banca. Na nossa versao, o compu- 
tador soma as cartas do jogador para sa- 
ber seu total. Se o jogador tiver um to- 



tal maior ou igual ao que a banca paga, 
ele vence; se tiver menos, perde. Quan- 
do vence, a banca paga um valor igual 
a sua aposta, ou seja, ele recebe o do- 
bro do que apostou. Nenhuma ficha ex- 
tra e paga a naturais ou maos de cinco, 
e nao 6 permit ido blefar. 

O jogador tambem nao pode dar as 
cartas nem fazer papel de banca — no 
jogo convencional a banca pertence a 
quern consegue um natural. Resta, as- 
sim, ao jogador, a dificil tarefa de que- 
brar a banca, o que ocorre quando ele 
consegue acumular mais de 1 000 fichas. 
No inicio da partida, o jogador recebe 
100 fichas e, caso perca todas, perde 
tambem o jogo. 



Carregue as duas sec6es inkiais do 
programa e acrescente as Iinhas seguin- 
tes para completar seu jogo. 

Z500 PAUSE 50 





II 
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2510 LET DPF=»B: LET AF = B: LET X 

-C: LET ¥-10 

2520 FOR J-C TO 2 

2530 LET Z-O(J): GOSUB 5500 

2540 IF VA>10 THEN LET VA-10 

2545 FOR K-C TO 2: LET W(K)-W(K 
)+VA: NEXT K 

2546 IF VA-C AND AF-B THEN LET 
W(2)-W<2)+10: LET AF-C 

2550 LET X-X+6: NEXT J 
2560 IF W(2)=21 THEN PRINT PA 
PER 2; INK 7: AT 14, IB;" NATURAL 
1 "; AT 15,16;" A BANCA GANHA ": 
LET DPF-C: GOTO 2000 
26Q0 IF PF-C THEN GOTO 2720 
2610 PAUSE 75 

2630 IF M{C)>21 THEN PRINT PA 
PER C; INK 7 ; AT 21.B;" A BANCA 
ESTOURA! "; : GOTO 2 740 
2635 IF W(2)>21 THEN LET W{2)= 
W(C) 

2640 IF WI2K16 THEN GOTO 2800 
2650 IF FF-C THEN GOTO 2800 
2660 LET PR=(W(2)-B)/13 
>670 IF PR<RND THEN GOTO 2800 
:700 IF W{2)>21 THEN LET W(2)- 




«(C) 

2710 IF W(2)-21 THEN PRINT AT 

20.B;*' A BANCA PAGA SOMENTE NAT 

URAIS E MAOS DE CINCO": GOTO 

2000 

2720 PRINT PAPER 2;AT 21. B;" A 

BANCA OBTEVE ";W(2)+C; 
2725 IF S(2)>21. THEN LET S(2)- 
S<C) 
2730 IF W(2)>-S(2) THEN PRINT 

PAPER 2;" E GANHOU! ": GOTO 20 
00 

2 740 PRINT PAPER 2;" VOCE GANH 
OU ■*: LET CP-CP+BET*2: GOTO 200 


2800 LET Z=C(CC): GOSUB 5500 
2805 IF VA>10 THEN LET VA-10 
2810 FOR K-C TO 2: LET W(K)-W«K 
1+VA: NEXT K 
2820 IF VA=C AND AF=B THEN LET 

W(2)=W(2}+10: LET AF-C 
2822 IF W(l}<22 AND X=25 THEN 
PRINT PAPER 2; INK 7; AT 21, B;" 

MAO DE CINCO! ": GOTO 2000 
2825 GOSUB 7000 
2830 LET X-X+6: GOTO 2610 

A Unha 2500 provoca urn segundo de 
pausa e, entao, o programa inicia a jo- 
gada da bauca. A 2510 coloca zero no 
sinalizador de naturais e no sinalizador 
de ases da banca, e acerta as coordena- 
das da primeira carta. 



D1STRIBUICA0 DAS CARTAS 



As duas cartas iniciais sao "viradas* 1 
pelo FOR.. .NEXT entre as linhas 2520 
e 2550; a linha 2530 mostra as cartas. 
A 2540 atribui o valor dez as cartas de 
riguras, antes que a 2545 some seu va- 
lor com o total da banca (dois totais, se 
houver urn as). A 2546 soma dez a W{2), 
se uma das cartas for um as, e coloca 
1 no i nd i cad or de ases. A linha acerta 
a posicao da proxima carta. 

A linha 2560 verifies se foi obtido um 
natural, anunciando a vitoria da banca, 
se for o caso. O indicador de naturais 
da banca passa a valer 1. Se o jogador 
tambem tem um natural — linha 2600 
— , o programa vai a rotina que cuida 
das mensagens: "quern tem o que" e 
"quern venceu". Ap6s a pausa da linha 
2610, a linha 2630 verifica se a banca es- 
tourou; em caso afirmativo, surge a 
mensagem A BANCA ESTOUROU. A 
linha 2635 verifica se o maior dos totais 
— quando ha um as — excedeu 21. O 
programa so considers o menor total. 
Se a banca tiver menos de 16 pontos. a 
linha 2800 vira outra carta. 



QUER MAIS CARTAS? 



As linhas 2660 e 2670 decidem se a 
banca quer outra carta. Nao ha regra fi- 



xa para isso. Nao vale a pena impor um 
limite acima do qua! a banca nao pede 
mais cartas, pois ela se tornara previ- 
sivel e o jogador logo saber a como 
derrota-la. E necessano introduzir um 
fator de incerteza (como fazemos aqui), 
que tome impossivel prever quando a 
banca vai parar de pedir cartas. 

Para isso, o programa devera fazer 
o com put ad or se comport ar de manei- 
ra semelhante a um xer humane 
Coloque-se no lugar da banca: tendo um 
total de 20 pontos, voce se sentiria me- 
nos inclinado a pedir outra carta do que 
se tivesse 16. Quando o computador 
compara PR com um mimero randomi- 
co, introduz-se um fator de incerteza e, 
ao mesmo tempo, a decisao passa a de- 
pender do valor da mao da banca. 



RESULTADO FINAL 



A linha 2700 trocac valoi de W(2) pe- 
lo de W(l), se W(2) contiver mais de 21 . 
Se a banca conseguir 21 pontos, a linha 
2710 imprime na tela a mensagem A 
BANCA PAGA SOMENTE NATU- 
RAIS E MAOS DE CINCO. Caso pos- 
sua uma mao inferior a 21 , a linha 2720 
escreve A BANCA OBTEVE, seguido 
de um valor um ponto mais alto que o 
total alcancado pel a banca. 

A linha 2730 compara o total do jo- 
gador com o da banca. Quando esta 
vence, a linha 2730 informa o fato; ca- 
so contrario, a linha 2740 anuncia a vi- 
t6ria do jogador e calcula o novo total 
de fichas. 

A parte final do programa — linhas 
2800 a 2830 — cuida da distribute das 
cartas da banca. 

A linha 2805 atribui dez pontos as 
cartas de figura. O valor da carta e so- 
mado ao de W(l) e W(2) na linha 2810. 
Se houver um is, a linha 2820 cabe exe- 
cutar as alteracoes necessarias antes que 
a Unha 2822 verifique se se conseguiu 
uma mao de cinco. A linha 2825 ajusta 
o monte de cartas, preparando uma no- 
va distribuicao. A linha 2830 calcula a 
posicao onde a carta vai ser desenhada . 



Apague o GOTO 86 do final da linha 
650 e adicione as linhas seguintes: 

500 GOSUB 4000: GOTO 540 
510 CX-CX+32:GOSUB 3500:NC-NC+1 
530 IF DL>21 THEN 620 
540 DT-DL+10*(DA AND (DL<12) ) : IF 
DT-21 AND NC-2 THEN GOSUB 5000 
: PRINT! 1. "A BANCA TEM UM NATURA 
L":GOSUB 5500:GOTO 610 
550 IF NC-5 THEN GOSUB 5000 :PRI 



Nil 
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NT§1,"A BANCA TEM UMA MAO DE CI 

NCO": GOSUB 5500: GOTO 610 

560 R=20-DT:IF RNDU ) *100<R*R*R 

OB DT<16 OK PS-1 THEN 510 
570 GOSUB 5000: IF P5=l THEN PRI 
NTfl.'VOCe TEM DMA MAO DE CINCO 
■ ELSE PRINT#l,"Voce tew" i PT 
580 GOSUB 5500: GOSUB 5000:PRESE 
T(B,80) :PRINT|1. "A banca paga 3 
omente"; : PRESET <8 ,92) : IF DT<21 
TKEN PRINTil, "totaia maiores ou 

iguais a";DT+l ELSE PRINT#l,"n 
dturaia e nioa de cinca" 
590 GOSUB 5500: IF P5=l THEN 630 
600 IF DT<PT THEN 630 
610 GOSUB 5000:PRINT#1,"A banca 

venceu" :GOSUB 55Q0;G0TO 690 
620 GOSUB 500Q:PP.JNT#1."A banca 

estourou. Voc§ venceu" -.GOSUB 5 
500:GOTO 640 

630 GOSUB 5000 : PRINTI1 , "Voce ve 
nceuVGOSUB 5500 
640 MN=MN+2*BT: GOSUB 5000: GOSUB 

7000:GOTO 700 
650 GOSUB 5000 :PRINT|] ."UOCfi TE 
M 1JM NATURAL" :PF=1: GOSUB 5500 
660 GOSUB 4000 :TF DL = 11 THEN GO 
SUB 5000 : PRINT*] ."MAS A BANCA T 
EM UM TAMBfiM" : GOSUB 5500: GOTO 6 
10 

670 GOTO 630 

690 IF MN<1 THEN GOSUB 5000 : PRI 
NTtl.'Suas fichas acabaram" :GOS 
UB 5500: GOTO 790 

700 IF PF=1 THEN GOSUB 5000: PRI 
NT|1 , "Embaralhando as cartas" :G 
OSUB 5500: GOSUB ]500:GOTO 750 
710 NF-N-l:IF NA>N THEN NF=N+51 
720 FOR X-NF TO NA+1 STEP -1:Q- 
INT((X-NA)+NA) :T-SQ{X) :SQ(X)-SQ 
CQ) :SQ(Q)-T:NEXT:TF NA>N THEN 7 
40 

730 FOR X-0 TO 9 : SQ CX+52) =SQ (X) 
: NEXT: GOTO 7 50 

740 FOR X-0 TO 9 : SQ (X) -SQ (X+52) 
:NEXT 

790 GOSUB 5000 :PRINT§1 . "Quer jo 
gar novamente (S/N) ?" : CLOSE1 
800 AS-TNKEY$:IF ASO"N" AND AS 
<>"N" THEN 800 
810 IF A5="S* THEN RUN 
820 COLOR 15, 4, 4: END 
3500 GOSUB 1000:GOSU8 2000: IF N 
M=l THEN DA-1 

3510 IF NM>15 THEN DL=DL+10 ELS 
E DL=DL+NM 
3520 RETURN 

4 000 NN=N:N=D1:CX-31;CY-105:GOS 
UB 3500 

4010 N-D2:CX-63: GOSUB 3500:N-NN 
4020 NC-2: RETURN 

Antes da banca jogar, veem-se na te- 
la a mao do jogador e as duas cartas da 
banca fechadas. A banca abre, entao, 
suas cartas — a linha 500 chama a sub- 
rotina 4000. Esta abre a primeira carta, 
charnando inicialmente outra sub- 
rot ina, da linha 3500, que cuida do de- 
senho das cartas e calcula os pontes da 
banca. Na linha 4010 a segunda carta 6 
** aberta, chamando-se a sub-rotina nova- 



mente, depois que a posicao horizontal 
da carta foi modificada. O numero da 
carta e atualizado e a sub-rotina termi- 
na na linha 4020. 

A linha 510 muda e acerta a posicad 
horizontal da carta seguinte e chama a 
sub-rotina da linha 3500. Assim, a ban- 
ca recebe uma nova carta. A linha 530 
verifica se a banca ultrapassou 21 pon- 
tes; a linha 620 avisa o jogador, se for 
o caso. Se a banca conseguiu um natu- 
ral, o indicador de naturals da banca 
passa a valer 1 e o jogador recebe uma 
mensagem. A linha 550 detecta maos de 
cinco. 



AS DECIS0ES DA BANCA 



A parte mais interessante do progra- 
ma esta na linha 560, que faz o compu- 
tador decidir se quer ou nao mats car- 
tas. Seria mats facil que a maquina pa- 
rasse de pedir cartas quando atingisse 
um determinado total — 19, por exem- 
plo. Pordm, seria igualmente facit para 
o jogador derrotar a banca, uma vez que 
soubesse do fato. E necessario, portan- 
to, introduzir um fator de incerteza na 
decisao do computador, tornando-a im- 
previsivel. Isso nao significa que se de- 
'va programar uma estrategia suicida — 
fazendo, por exemplo, com que a ban- 
ca habit ualmente peca mais cartas, ja 
tendo 20 pontos. 

Criamos, entao, uma variavel R, 
igual a 20, menos os pontos da banca, 
A seguir, um numero qualquer entre 
e 100 d escolhido ao acaso e comparado 
com R*R*R. Se o numero for menor, 
se a banca tiver menos de 16 pontos ou 
se o jogador conseguir uma mao de cin- 
co, o computador pede mais uma car- 
ta. O modo como calculamos R faz a 
chance da banca pedir mais cartas dimi- 
nuir a medida que seu total de pontos 
aumenta. Raramente ela pedira mais 
cartas ja tendo 19 pontos, mas quase 
sempre o fara quando ainda tiver 16. 

Usando o mesmo raciodnio e modi- 
ficando um pouco a linha 560, pode- 
mos, alem de variar a dificuldade do jo- 
go, fazer com que a banca jogue 
baseando-se tambem nas cartas abertas 
do jogador, por exemplo. 



RESULTAD0 FINAL 



A linha 570 mostra o valor da mao 
do jogador, apontando a ocorrencia de 
uma mao de cinco, se for o caso. A li- 
nha 580 indica as maos que vencem a 
banca. Se o jogador tiver uma mao de 
cinco e a banca nao, a linha 590 exibe 
a mensagem VOCE VENCEU. De mo- 




do semelhante, a linha 600 compara os 
totais do jogador e da banca, informan- 
do o resultado atraves da linha 610 ou 
da linha 630. > 

Quando o jogador vence, a linha 640 
acrescenta as fichas ganhas as que o jo- 
gador ja tinha. Sempre que alguem con- 
segue um natural, as cartas sao emba- 
ralhadas. A linha 700 verifica o indica- 
dor de naturais e as linhas 710 a 740 em- 
baralham as cartas. 

Apds o aniincio de que o jogador con- 
seguiu um natural, a linha 660 verifica 
se a banca obteve o mesmo tipo de mao. 
Em caso afirmativo, vence a banca e a 
linha 610 indica o resultado, Se o joga- 
dor ganhar, cabera a linha 670 informar 
o fato. 

Quando se acabam as fichas do jo- 
gador, a linha 690 diz VOCE PERDEU 
TODAS AS FICHAS. 

Finalmente, uma pequena rotina (li- 
nhas 790 a 820) oferece ao jogador a op- t 
cao de jogar novamente. 
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Apague o GOTO 190 do fim da linha 
650 e acrescente as linhas seguintes. 

500 GOSUB 4000: GOTO 540 

510 CX = CX + 54: GOSUB 3500 :NC 

- tie + l 

520 FOR K ■ 1 TO 1700: NEXT K 

530 IF DL > 21 THEN 620 

540 DT - DL + 10 * (DA AND (DL 

< 12) ) : IF DT • 21 AND NC 

HEN TEXT : HOME : 

CA TEM UM NATURAL" 

610 
550 IF NC = 5 THEN TEXT : HOM 
E : PRINT "A BANCA TEM UMA MAO 
DE CINCO": GOTO 610 
560 R = 20 - DT: IF RND (I) * 
100 < R * R * B OH DT < 16 OR P 
5=1 THEN 510 

570 TEXT : HOME : IF P5 - 1 TH 
EN PRINT "VOCE TEM UMA MAO DE 
CINCO": GOTO 580 

575 PRINT : PRINT "VOCE TEM "j 
PT 



2 T 

PRINT "A BAN 
:PF = 1: GOTO 



580 PRINT : PRINT "A BANCA PAG 
A ";: IF DT < 21 THEN PRINT "V 
ALORES MA10RES OU IGUA1S A " ; DT 

+ 1: GOTO 590 
585 PRINT "NATURAIS E MAOS DE 
CINCO APENAS" 

590 FOR K = 1 TO 500: NEXT : I 
F P5 = 1 THEN 630 
600 IF DT < PT THEN 630 
610 PRINT : PRINT "A BANCA CAN 
HOU" : GOTO 690 

620 TEXT : HOME : PRINT "A BAN 
CA ESTOUROU. VOCE CAN HOU " : GOTO 

640 
630 PRINT : PRINT "VOCE GANHOU 

M 

640 MN - MN + 2 * BT: GOTO 700 

660 GOSUB 4000: HOME : TEXT : 

IF DL = 11 THEN PRINT "MAS A B 

ANCA TEM A KESMA COISA" : GOTO 6 

10 

670 GOTO 630 

690 PRINT : IF MN < 1 THEN PR 

INT "VOCE PERDETT TODAS AS FICHA 

S": GOTO 790 

700 IF PF = 1 THEN PRINT : PR 

INT "EMBARALHANDO AS CARTAS": G 



TO 9:SQ(X + 52) 

GOTO 750 
TO 9:SQ(X) 



SQ< 



OSUB 1500: GOTO 750 

710 NF - N - 1: IF NA > N THEN 

NF - N + 51 

720 FOR X = NF TO NA + 1 STEP 

- 1:Q - INT ( RND (1) * (X - 
NA)) + NA:T - SQ(X):SQ(X) - SQ ( 
Q):SQCQ) - T: NEXT : IF NA > N 
THEN 740 
730 FOR X ■ 
- SQ(X) : NEXT 
740 FOR X - 
X + 52) : NEXT 

790 PHTNT : PRINT "QUER JOGAR 
NOVAMENTE (S/N) ?" 
800 GET AS: IF A$ < > "S" AND 

A$ < > "N" THEN 800 
810 IF AS - *S" THEN 150 
820 END 

3500 POKE - 16299,0: POKE - 
16304,0: GOSUB 1000: GOSUB 2000 
: IF NM - 1 THEN DA - 1 
3510 IF NM > 10 THEN DL - DL + 

10: GOTO 3520 
3515 DL - DL + NM 
3520 RETURN 

4000 NN = N:N - Dl : CX =» 6 : CY - 
100: GOSUB 3500 



465 
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II 



466 



4010 N - D2:CX - 60: GOSUB 3500 
: If * MM 

4020 FOR K - 1 TO 3500: NEXT : 
KG - Z: RETURN 

Como o programa completo e muito 
extenso, utilizamos a pagina grafica 2. 
Nunca use a pagina 1 , pois o programa 
sera danificado. 

Quando a vez de jogar passa a ban- 
cs, as cartas do jogador e as duas car- 
tas fechadas do adversario aparecem na 
tela. A banca, em primeiro lugar, abre 
suas cartas — a linha 500 chairia a sub- 
rotina 4000, que abre a primeira carta 
da banca chamando outra sub-rotina, 
da linha 3500. Esta sub-rotina liga o mo- 
do grafico da pagina 2, sem apagar seu 
conteudo, desenha a carta e calcula o to- 
tal de pontos. A linha 4010 abre a se- 
gunda carta, que chama a mesma sub- 
rotina apos ter modificado a posicao ho- 
rizontal da carta. O numero da carta e 
atualizado e a sub-rotina termina na li- 
nha 4020. 

A linha 510 calcula a posicao hori- 
zontal da nova carta e volta a chamar 
a sub-rotina 3500. Assim, a banca rece- 
be rnais uma carta. A linha 520 provo- 
ca uma pausa antes que a linha 530 ve- 
rifique se a banca nao ultrapassou os 21 
pontos — a linha 630 informa o fato, 
se necessario. A linha 540 verifica se a 
banca ohteve um natural; em caso afir- 
mativo, coloca 1 no indicador de natu- 
rals e exibe uma mensagem na tela. A 
linha 550 detecta uma mao de cinco. 



AS 0ECIS0ES DA BANCA 



A parte mais interessante do pro- 
grama esta na linha 560, que faz o com- 
putador decidir se quer ou nao mais 
cartas. Seria mais facil programar a 
maquina de modo que parasse de pedir 
cartas sempre que atingisse um deter- 
minado valor — 19, por exemplo. Mas 
seria igualmente facil para o jogador 
derrota-la, uma vez que tivesse conhe- 
cimento dessa estratdgja inflexivel. £ ne- 
cessario introduzir no programa um ele- 
mento de acaso, que tome as decisoes 
da banca imprevisiveis. Nao devemos, 
porem, programar o computador com 
uma estrategia suicida — que faca a 
banca pedir sempre mais cartas, ja ten- 
do 20 pontos, por exemplo. 

Criamos, assim, uma variavel R, 
igual a 20, menos o total de pontos da 
banca. Um numero qualquer entre e 
100 6 escolhido e comparado com 
R*R*R. Se o numero for menor, se a 
banca tiver menos de 16 pontos ou se o 
jogador conseguir uma mio de cinco, o 
computador pede mais uma carta. A 



maneira como calculamos R faz com 
que a chance da banca pedir cartas di- 
minua a medida que seu total de pon- 
tos aumenta, Raramente ela pede mais 
uma carta ja tendo 19 pontos, mas quase 
sempre o fara quando ainda tiver 16. 



RESULTAD0 FINAL 



A linha 570 mostra o total de pontos 
do jogador. A linha 575 indica uma mao 
de cinco. As linhas 580 e 585 informam 
quais os tipos de mao que a banca esta 
pagando. 

Se o jogador tiver uma mao de cinco 
e a banca nao, a linha 590, ap6s uma 
pequena pausa, exibe na tela VOCE 
GANHOU. De modo semelhante, a li- 
nha 600 compara os totais do jogador 
e da banca; o resultado e dado pelas li- 
nhas 610 ou 630, dependendo do 
vencedor. 

Quando o jogador ganha, a linha 640 
acrescenta as fichas obtidas as que ele 
ja possufa. Sempre que algudm conse- 
gue um natural , as cartas sto embara- 
Ihadas. A linha 700 verifica o indicador 
de naturais e as linhas 710 a 740 emba- 
ralham as cartas. 

A linha 660 entra em acao quando o 
jogador obtem um natural, verificando 
se a banca conseguiu a mesma coisa — 
neste caso, a banca ganha e o progra- 
ma segue na linha 610. Caso contrario, 
a 670 informa a vitdria do jogador, 

A linha 690 avisa que as fichas do jo- 
gador acabaram. 

Finalmente, as linhas 790 a 820 
oFerecem-Ihe a opcao de jogar outra vez. 



O programa completo e tao extenso 
que invade a primeira pagina — MA — 
da tela do TK-2000. Assim, para con- 
cluir o programa, as partes anteriores 
devem ser carregadas na pagina dois. 
Digite MP antes de carregar o programa 
— incompleto ou depois de terminado. 
Nunca volte a MA. 

As alteracoes que os usuarios do 
TK-2000 devem fazer para completar 
seu jogo sao as mesmas do Apple, com 
excecio das seguintes linhas (nao se es- 
queca de apagar o GOTO 190 do final 
da linha 650): 

540 DT - DL + 10 * (DA AND (DL 
< 12) ) : IF DT • 21 AND NC - 2 T 
HEN GOSUB 5000: PRINT "A BANCA 

TEM UM NATURAL" : PF - 1: GOSUB 
6000: GOTO 610 

550 IF NC - 5 THEN GOSUB 5000 
: PRINT "A BANCA TEM UMA MAO DE 

CINCO": GOSUB 6000: GOTO 610 
570 GOSUB 5000: IF P5 - 1 THEN 



PRINT "VOCE TEM UMA MAO DE CI 
NCO" : GOSUB 6000: GOTO 580 
575 GOSUB 5000: PRINT "VOCE TE 
M " ;PT: GOSUB 6000 
580 GOSUB 5000: PRINT "A BANCA 

PAGA ";: IF DT < 21 THEN PRIN 
T "VAL0RES MAIORES OU IGUAIS A 
";DT + 1: GOSUB 6000: GOTO 590 
585 PRINT "NATURAIS E MA0S DE 
CINCO APENAS": GOSUB 6000 
610 GOSUB 5000: PRINT "A BANCA 

GANHOU" : GOSUB 6000 : GOTO 690 
620 GOSUB 5000: PRINT "A BANCA 

ESTOUROU. VOCE GANHOU": GOSUB 
6000: GOTO 640 

630 GOSUB 5000: PRINT "VOCE GA 
NHOU" : GOSUB 6000 
660 GOSUB 4000: GOSUB 5000: IF 

DL « 11 THEN PRINT "MAS A BAN 
CA TEM A MESMA COISA" : GOSUB 60 
00: GOTO 610 

690 GOSUB 5000: IF MN < 1 THEN 
PRINT "VOCE PERDEU TODAS AS F 
ICHAS": GOSUB 6000: GOTO 790 
700 IF PF = 1 THEN PRINT "EMB 
ARALHANDO AS CARTAS": GOSUB ] SO 
0: GOSUB 6000: GOTO 750 
790 PRINT "QUER JOGAR NOVAMENT 
E (S/N) 7" 

3500 GOSUB 1000: GOSUB 2000: I 
FNM ■ 1 THEN DA - 1 
4000 NN - N:N - D1:CX - 6:CY - 
110: GOSUB 3500 

Voce precisara, portanto, recorrer a 
listagem do Apple para fazer as demais 
modificacoes. 

As diferencas entre o programa do 
TK-2000 e do Apple devem-se a ausen- 
cia de uma pagina exclusiva para textos 
no primeiro computador. Assim, as 
mensagens tern que ser impressas na pa- 
gina grafica. 

As explicates sobre o funcionamen- 
to do programa sao as mesmas, com 
uma excecao: na linha 3500 nao ligaraos 
a tela de alia resolucao como no Apple, 
pois nunca saimos dela. 




19 PROGRAMACAO DEJOGOS 19 



Antes de acrescentar as linhas seguin- 
tes, apague o GOTO 190 do final da li- 
nha 650. 

500 GOSUB 4000: GOTO 540 

510 CX-CX+50:GOSUB 3500:NC-NC+1 

520 FOR K-l TO 1725:NEXT 

530 IF DL>21 THEN 620 

540 DT-DL+10*{DA AND CDL<12) ) : IF 

DT«Z1 AND NC»2 THEN CLS: PRINT" 

A BANCA TEM UM NATURAL" : PF-1 :G 
0T0 610 
550 IF NC-5 THEN PRINT" A BANCA 

TEM UMA MAO DE CINCO": GOTO 610 
560 R=20-DT:IF RND (100)<R*R*R O 
R DT<16 OR P5-1 THEN 510 
570 CLS: IF P5-1 THEN PRINT" VOC 
E TEM UMA MAO DE CINCO" ELSE PR 
INT" VOCE TEM";PT 
580 PRINT" A BANCA PAGA";:IF DT 
<21 THEN PRINT DT+1 ELSE PRINT 
" SOMENTE NATURAIS E MAOS DE 

CINCO" 
590 FOR K-l TO 500:NEXT:IF P5-1 

THEN 630 
600 IF DT<PT THEN 630 
610 PRINT" A BANCA GANHA":GOTO 
690 

620 CLS: PRINT" A BANCA ESTOUROU 
. VOCE GANHA":GOT0 640 
630 PRINT " VOCE GANHOU DA BANC 
A" 

640 MN-MN+2*BT:GOTO 700 
660 GOSUB 4000: IF DL-11 THEN PR 
INT: PRINT" MAS A BANCA OBTEVE O 

MESMO VALOR": GOTO 610 
670 GOTO 630 

690 PRINT: IF MN<1 THEN PRINT " 
VOCE PERDEU TODAS AS FICHAS":GO 
TO 790 
700 IF PF-1 THEN PRINT: PRINT" A 

BANCA EMBARALHA AS CARTAS 
APOS OBTER O NATURAL" : GOSUB 150 
0-GOTO 750 

710 NF=N-1:IF NA>N THEN NF=N+51 
720 FOR X-NF TO NA+1 STEP-1:Q-R 
ND(X-NA)+NA-1:T-SQ(X) :SQ(X)-SQ( 



Q) :SQCQ)=T:NEXT:IF NA>N THEN 74 



730 FOR X-0 TO 9:SQ (X+52) =SQ (X) 

: NEXT: GOTO 750 

740 FOR X = Q TO 9 : SO (X) -SQ CX+52) 

: NEXT 

790 PRINT: PRINT" QUER RECOMECAR 

(5/N)?" 
800 AS-INKEY$:IF AS<>"S" AND A$ 

<>"N* THEN 800 

810 IF A3-"S" THEN CLS:GOTO 170 

820 END 

3500 SCREEN 1,1: GOSUB 1000:GOSU 

B 2000: IF NM-1 THEN DA-1 

3510 IF NM>10 THEN DL-DL+10 ELS 

EDL-DL+NM 

3520 RETURN 

4000 NN-N : N-Dl : CX-6 : CY-108 : GOSU 

B 3500 

4010 N-D2:CX-56: GOSUB 3500:N-NN 

4020 FOB K-l TO 2000 :NEXT:NC-2 : 

RETURN 

Quando a vez de jogar passa a ban- 
ca, v&em-se na tela a mao do jogador e 
as duas cartas tec had as de sen ad versa* 
no eletronico. A banca, em primeiro lu- 
gar, abre suas duas cartas — a linha 500 
chama a sub-rotina 4000, que abre a pri- 
meira carta chamando outra sub-rotina, 
na linha 3500. Esta liga a tela de alia re- 
solucao, desenha a carta e calcula os 
pontos. A segnnda carta e aberta pela 
linha 4010, que chama a mesma sub- 
rotina apos ter modificado a posicao ho- 
rizontal da carta. O numero da carta e" 
ajustado e a sub-rotina termina na linha 
4020. 

A Hnha 510 calcula a posicao hori- 
zontal da nova carta e chama a sub- 
rotina da linha 3500. Assim, a banca re- 
cebe mais uma carta. A linha 520 pro- 
voca uma pausa antes que a 530 verifi- 
que se a banca tern mais de 21 pontos 
— a linha-620 informa o fato, se neces- 
sario. A linha 540 verifica se a banca 
conseguiu um natural; em caso afirma- 




tivo, coloca 1 no indicador de naturals 
e exibe uma mensagem na tela. Maos de 
cinco sao detectadas pela linha 550. 

A parte mais interessante do progra- 
rna esta na linha 560, que faz o compu- 
tador decidir se quer ou nao mais car- 
tas. Seria mais facil programar a maqui- 
na de maneira que ela parasse de pedir 
cartas quando atingisse um determina- 
do valor — 19, por exemplo. Mas seria 
igualmente facil para o jogador derrota- 
la, uma vez que tivesse conhecimento 
dessa estrategia de jogo. Por isso, e ne- 
cessario introduzir no programa um ele- 
mento de acaso, que torne as decisoes 
da banca imprevisiveis. Por outro lado, 
nao podemos munir o programa de uma 
estrategia suicida, que faca, por exem- 
plo, com que a banca frequentemente 
peca mais cartas, ja tendo obtido 20 
pontos. 

Criamos, assim, uma variavel R, 
igual a 20, menos o valor da mao da ban- 
ca. O programa escolhe ao acaso um nu- 
mero entre 1 e 100 e o compara com 
R*R*R. Se o numero for menor, se a 
banca tiver menos de 16 pontos ou se o 
jogador conseguir uma mao de cinco, a 
banca pede mais uma carta. A maneira 
como calculamos R faz com que a chan- 
ce da banca pedir cartas diminua a me- 
dida que seu total de pontos aumenta, 
Raramente ela pedira mais cartas tendo 
ja 19 pontos, mas quase sempre o fara 
quando tiver apenas 16. 



RESULT ADO FINAL 



A linha 570 mostra o total de pontos 
do jogador ou indica uma mao de cin- 
co. A linha 580 informa quais os tipos 
de mao a banca vai pagar. 

Se o jogador obteve uma mao de cin- 
co e a banca nao, a linha 590 exibe na 
tela a mensagem VOCE GANHOU. De 
modo semelhante, a linha 600 compara 
os totais do jogador e da banca; o re- 
sult ado e dado pelas linha 610 ou 630, 
dependendo do vencedor. 

Quando o jogador ganha, a linha 640 
acrescenta as fichas obtidas as que ele 
possufa. Sempre que alguem obtem um 
natural, as cartas sao embaralhadas pe- 
las linhas 710 a 740. A linha 700 verifi- 
ca o indicador de naturals. 

A linha 660 entra em acao quando o 
jogador consegue um natural, verifican- 
do se a banca conseguiu mao igual. Se 
a banca veneer, a linha 610 anuncia. Ca- 
so contrario, a linha 630 informa a vi- 
tdria do jogador. 

A linha 690 avisa que o jogador per- 
deu todas as fichas. 

Finalmente, as linhas 790 a 820 ofe- 
recem-lhe a opcao de jogar novamente. 



Todo tipo de programa que manipula 
dados pode se beneficiar com o uso 
de uma rotina de ordenacao. Neste 
artigo mostramos tres dos metodos 
mais empregados para esse fim. 




P 



A ordenacao e urn dos aspectos fun- 
damentals do processamento de infor- 
macoes. Os computadores sao muito ra- 
pidos na manipulacao de dados e a or- 
denacao destes d urn ponto importantfs- 
simo para tornar a informacao acessi- 
vel k analise e correcio. 

Imagine como seria difieil encontrar 
as referencias a urn determinado assun- 
to em um livro, sem o auxilio de um m- 
dice. On procurar um numero numa lis- 
ta telef&nica sem que os nomes estives- 
sem em ordem alfabetiea. Estamos, nos 
dots casos, diante de listas de informa- 
coes, nas quais, ao contrario de uma lis- 
ta de compras, por exemplo, os kens sao 
arraitjados ou ordenados numa ordem 
especffica: a alfab&ica. Em outros ca- 



sos — como na ordenacao das notas de 
uma classe — , os Hens estariam arran- 
jados em ordem numerica, 

Muitos tipos de programa fazem uso 
de rotinas de ordenacao, inclusive os 
programas de jogos, que comparam pla- 
cares. Essas rotinas, porem, sao mais 
comumente encontradas em programas 
que lidam com grande quantidade de 
dados, como os de contxole de arquivos, 
mala direta etc. 



QUE E ORDENACAO 



Ordenar e, simplesmente, colocar de- 
terminado conjunto de dados em uma 
ordem especffica — algo como arru- 



mar as cartas de um baralho. 

A posicao relativa de dois itens quais- 
quer em geraf se baseia em uma supe- 
rioridade numerica ou alfab&ica de um 
sobre outro. 

Em ordenacoes numericas, valores 
maiores vem sucessivamente antes ou 
depois dos menores. Em ordenacoes al- 
fabetieas, as letras sSo colocadas, suces- 
sivamente, das mais pr6xtmas do im'cio 
ate as mais proximas do fim do alfabe- 
to, ou vice-versa. 

Pode-se tambem fazer ordenacoes em 
base alfanumerica, ou seja, levando-se 
em conta letras e niimeros. Mas sempre 
havera a prioridade de uns sobre outros 
■ — as letras quase sempre tern mais im- 
portancia que os mimeros. 



PROGRAMACAO BASIC 



QUE E QRDENACAO? 



AS ROTINAS DE SHELL 



QRDENACAO TIPO BOLHA 



ESHELL-METZNER 



ASVANTAGENSDAROTI NA 
DE QRDENA CAO 



COMO AUMENTAR 



AVELOCIDADE 



DE BUSCA BINARIA 



DE QRDENACAO 




Em ordenacao numerica, em gerai o 
niimero 1 tern prioridade, enquanto a le- 
tra A assume o primeiro lugar na orde- 
nacao alfabetica. Mas para fins espe- 
ciais isso pode ser inverUdo. 



A QRDENACAO TIPO BOLHA 



A mais simples retina para ordena- 
gao e a chamada ordenacao tipo bolha. 
Voce ja viu urn exemplo dela no artigo 
da pagina 292. Agora, examinaremos o 
processo em maior detalhe. Para acom- 
panhar o que acontece, use cartas de ba- 
ralho ou, entao, recorte e numere alguns 
pedacos de papel. 

Coloque esse grupo de cartas (ou pe- 



dacos de papel numerados) sobre uma 
mesa, com o tres mais distante de voce, 
na seguinte ordem: 



ultima 


(tres] 




[sete] 




[dois] 




[seis] 


primeira 


[de/] 



comparacao dois a dois. Poderiamos di- 
zer, usando uma imagem, que o dez 
"borbulhou" entre os outros valores, o 
que explica o nome desta retina. Pelo 
mesmo rariocinio, valores baixos "bor- 
bulham" no sentido inverso. 

Assim, depois da primeira passagem, 
o arranjo das cartas ficou assim: 



Em uma ordenacao tipo bolha, o pri- 
meiro valor — aqui, o dez — e compa- 
rado com o seguinte do conjunto, ha- 
vendo uma troca, se o valor deste for 
menor (o que ocorre no nosso caso). O 
dez e entao comparado com o dois, com 
o sete e com o tres, mudando sempre de 
lugar, porque e o maior valor a cada 



ultima 



primeira 



[dez] 
[tres] 
[sete] 
[dois] 
[seis] 



O processo reinicia com a nova pri- 
meira carta, o seis, que e, entao, com- 
parada e trecada com a anterior, visto 




que tern valor major. Mas, em seguida, 
e comparada com o sete que, por sua 
vez, e maior. As comparacSes conti- 
nuant, entao, com este valor, enquanto 
o seis fica na segunda posicao. O sete 
e comparado com o tres e depois com 
o dez, subindo apenas um posto, ja que 
encontrou um valor maior. 

A nova ordem das cartas, ap6s a se- 
gunda passagem, e a seguinte: 



ultima 



pnmerra 



[dez] 

[sete] 

[seis] 

[tres] 

[dois] 



ultima 



primeira 



[dez] 

[sete] 
[tres] 

[seis] 
[dois] 



« 



A primeira carta, o dois, e compara- 
da com a anterior. O seis ganha e fica 
na mesma posicao. Comparado com o 
tres, o seis troca de lugar com ele, mas 
ftca agora parado nesta posicao, uma 
vez que e menor que o sete e o dez. A 
ordenacao terminou, pois nao hi mais 
trocas a se fazer. 

A ordem das cartas e, entao: 



O computador faria uma ultima pas* 
sagem por essa nova ordem das cartas, 
para se certificar de que nao ha mais tro- 
cas a fazer, e so pararia se realmente nao 
houvesse. 

Durante a execucao da rot ina um cer- 
to niimero de comparacoes e trocas foi 
feito, Essas duas operacoes estao tnclui- 
das em qualquer rotina de ordenacao. 
A diferenca entre tais rotinas consiste 
apenas no niimero de operacoes que sao 
executadas e, consequentemente, no 
tempo gasto. 

Vejamos agora outros exempios, 
usando esta seqiiencia de numeros: 

inicio fim 

67 35 72 19 47 38 11 96 



O primeiro da lista e o 67. Ele e com- 
parado e trocado com o 35, mas para 
ai. O maior valor neste ponto e 72, que 
e comparado e trocado sucessivamente 
com 19, 47, 38, 11, ate que encontra o 
96; a rotina, entao, recomeca a compa- 
racao desde o primeiro numero. 

A lista abaixo mostra todo o proces- 
so. Os kens submetidos a eomparavao 
estao entre parfenteses. 
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Vejamos agora como se comporta a 
rotina de ordenacao tipo bolha na for- 
ma de programa, Ela esta colocada co- 
mo a sub-rotina 1000. 

Grave o programa para que possa 
adicionar outras rotinas mais tarde. 



10 POKE 23658,8: LET T=ft: 
INPUT "NUMERO DE ITENS ";AA: 
IF AA<2 THEN GOTO 10 
15 DIM A(AA) 

20 PRINT '' '"TABELA DESORDENA 
DA": PRINT 
30 FOR Z-l TO AA 
40 LET A(Z)=INT (RND»1Q0) +1 
50 PRINT TAB T;A{Z);: LET T-T 
+4: IF T>30 THEN LET T-0 
60 NEXT Z 

70 PRINT : PRINT : PRINT "PRE 
3SIONE 'O' PARA ORDENAR" 
80 LET KS-INKEYS: IF K$O"0" 
THEN GOTO 80 
90 GOSUB 1000 
100 PRINT : PRINT "TABELA ORDE 
NADA*: PRINT 

110 LET T=0: FOR 2=1 TO AA 
120 PRINT TAB T;A(Z);: LET T-T 
+4: IF T>30 THEN LET T=0 
130 NEXT Z 
140 GOTO 10 

999 REM ORDENACAO BOLHA (BUBBLE 
SORT) 
1000 FOR Z-l TO AA-1 
1010 LET Z2=0 
10 20 FOR Y-l TO AA~Z 
1030 IF A(Y+1KA(Y) THEN LET X 
-AtY) : LET A(Y)-A(Y+1): LET A(Y 
+1)-X: LET ZZ-1 
1040 NEXT Y 

1050 IF ZZ-0 THEN RETURN 
1060 NEXT Z: RETURN 

10 PRINT: PRINT : INPUT "NUMERO DE 

ITENS" ;AA:IF AA<2 THEN 10 

15 DIM ACAA) 

20 PRINT: PRINT" TABELA DESORDENA 

DA": PRINT 

30 FOR Z-l TO AA 

40 A(Z)-INT(RND(1)*100)+1 



50 PRINT A(Z) , 

60 NEXT Z 

70 PRINT:PRINT:PRINT"PRES3I0NE 

'0' PARA ORDENAR" 

80 GET K3:IF KSO"0" THEN 80 

90 GOSUB 1000 

100 PRINT: PRINT : PRINT'TABELA OR 

DENADA" 

110 PRINT: FOR Z-l TO AA 

120 PRINT A(Z) , 

130 NEXT Z 

140 RUN 

999 REM ORDENACAO BOLHA (BUBBLE 
SORT) 

1000 FOR Z-l TO AA-1 
1010 ZZ-0 

1020 FOR Y-l TO AA-Z 

1030 IF A(Y+1}<A(Y) THEN X-A(Y) 

:A(Y)-A(Y+1) :A(Y+1)-X:ZZ-1 

1040 NEXT Y 

1050 IF ZZ-0 THEN RETURN 

1060 NEXT 2: RETURN 

O programa acima roda apenas no 
Apple e no TK-2000. Faca as seguintes 
alteracoes para adaptar o programa a 
sua maquina: 

DQ 

40 A(Z)-RND<100) 

50 PRINT A(Z) ; 

80 K$-INKEY$:IF KSO'O" THEN 80 

120 PRINT A(Z) ; 



NT" TEMPO: "; TIMER/ 50; "SEGUNDOS 



fffi 



5 R=RND{-TIME) 

80 K$-rNKEYS:IF K$O"0" THEN 80 
1030 IF A(Y+1)<A(Y) THEN SWAP A 
m ,A(Y+1) :2Z-1 

Execute o programa. Inicialmente, 
ele pedira a quantidade de itens que vo- 
ce quer ordenar, criando urn conjunto 
de numeros pseudo-randfimicos baseado 
na sua resposta. Estes sao mostrados na 
tela sob o titulo "TABELA DESORDE- 
NADA". Uma mensagem pede que vo- 
ce" tecle '0' para iniciar a ordenacao. 

A rotina comeca a tuncionar, con- 
ctuindo a ordenacao em cerca de um se- 
gundo, se os itens forem poucos. Em se- 
guida, o conjunto de numeros & exibi- 
do na tela. No artigo da pagina 292 vo- 
ce encontrara mais detalhes sobre est a 
rotina e vera tambem o algoritmo em 
forma de diagrama. 

Para que voce possa comparar as di- 
versas rotinas, e interessante que crono- 
metre o tempo gasto em cada uma de- 
bts. Incorpore a rotina seguinte ao pro- 
grama, a fim de que o computador fa- 
ca isso para vocS. Os usuarios do Ap- 
ple II ou compativel precisarao utilizar 
o seu rel6gio... 

El 

90 TIMER-0: GOSUB 1000 : PRINT: PRT 



El 



90 POKE 16920,0: POKE 16919,0: GO 
SUB 1000 : PRINT'Teupo : " ; PEEK (169 
20) ;"■"; PEEK (16919) ;"a" 



90 POKE 23672.0: POKE 23673,0 
: GOSUB 1000: PRINT : PRINT C 
PEEK 23672+256*PEEK 23673J/50 
i" SEGUNDOS" 



Wi 



90 TIME-0:GOSUB1000: PRINT: PRINT 
"Tempo: "sTIME/60;" segundoi" 

Para iniciar a cronometragem e a or- 
denacao, pressione '0' quando a men- 
sagem aparecer. O tempo gasto peia ro- 
tina para ordenar os dados e exibido e 
o programa recomeca automaticamente, 

Provavelmente voce gastaria muito 
mais tempo do que a maquina para exe- 
cutar a mesma tarefa. Porem, pelos pa- 
droes computacionais, o tempo gasto 
pela ordenacao tipo bolha e extrema- 
mente longo. Por essa razao, nao se cos- 
tuma usa-la em sua forma original em 
programas de manipulacao de dados, a 
nao ser para listas muito pequenas. 

Mas veja que, surpreendentemente, 
ela se mostra mais veloz que todas as ou- 
tras quando se trata de reordenar uma 
lista a qua! se adicionou um item. Em 
um programa que armazena enderecos 
comerciais, por exemplo, podemos or- 
denar as novas entradas separadamen- 
te e depois incorpora-las a lista princi- 
pal. Outra alternativa e reordenar a lis- 
ta toda a cada nova entrada. 

Nessas circunstancias, a rotina tipo 
bolha nao faz nada mais que comparar 
o novo dado com os outros, ate que sua 
posicao correta sejaencontrada. A reor- 
denacao de uma lista equivale, assim, a 
comparacao de dois itens. E isso e feito 
rapidamente. 



A ROTINA DE SHELL 



As duas versdes mais utilizadas da ro- 
tina tipo bolha sao as rotinas de Shell 
e de Shell-Metzner, Ambas devem ser 
consideradas quando o mimero de itens 
a serem ordenados ultra passa a casa dos 
dez. 

A rotina de Shell emprega uma tec- 
nica de busca binaria que funciona di- 
vidindo sucessivamente a lista original 
ao meio, ate que a posicao do item cm 
questao seja encontrada. A cada divi- 
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sao, urn novo par de valores e compa- 
rado, A rotina termina quando faz uma 
passagem eompleta sem trocas. 

Uma rotina de Shell tern, tipicamen- 
te, a forma mostrada aqui. Adicione-a 
ao seu programa e mude o niimero do 
GOSUB da linha 90 para testa-la. 



1999 


REM ORDENACA0 


SHELL 


2000 


LET Z = AA 




2010 


TF Z<=1 THEN 


RETURN 


2020 
2 
20 30 


LET Z-INT <Z/2) : LET Y-AA- 


LET ZZ-0 




2040 


FOR X=J TO Y 




2050 


LET XX=X+Z 




2060 


IF A(X)>A(XX) 


THEN LET YY 


=A(X) 


: LET A(X)=A(XX): LET ACXX 


)=YY- 


LET ZZ=1 




2070 


NEXT X 




2080 


IF ZZ>0 THEN 


GOTO 2030 


2090 


GOTO 2010 




Qsraaiii 


1999 


HEM ORDENACAC 


SHELL 


2000 


Z-AA 




2010 


IF Z<-1 THEN 


RETURN 


2020 


Z-INT (Z/2) :Y- 


AA-Z 


2030 


ZZ-0 




2040 


FOR X-l TO Y 




2050 


XX-X+Z 




2060 


IF A(X)>ACXX) 


THEN YY-ACX) 


:AfX 


I -A (XX) :A(XX)> 


YY:ZZ-1 


2070 


NEXT X 




2080 


IF ZZ>0 THEN 


2030 


2090 


GOTO 2010 






p 



PARA UMA ORDENAQAO MAIS RAPIDA 

A veiocidade de qualquer rotina de 
ordenapao aumenta muito quando a in- 
formacao e oferecida ja semi-ordenada. 
Isso e importante sobretudo no caso da 
ordenapao tipo bolha. 

Se os itens vao ser ordenados cro- 
nologicamente, por exemplo, deve- 
mos airnazenar as datas na forma 
ANQ/M£S/DIA, em vez da mais usual 
DIA/M£S/A1M0. Dessa maneira, aplica- 
se a ordenapao inicialmente ao grupo 
completo e, depois, aos subgrupos. 

O processo seria muito mais demo- 
rado se ordenassemos inicialmente os 
dias, para depois reordenar alguns da- 
dos em funcao dos meses, repetindo 
finalmente todo o trabalho em funcao 
dos anos, 

Uma sub -rotina adicional poderia ser 
usada para inverter a seqCiencia usual 
de entrada da data para uso da rotina 
de ordenagao. 



Se o seu micro e da linha MSX, mu- 
de a linha 2060 para: 

2 060 IF A(X)>A(XX) THEN SWAP A( 
X) ,A(XX> :ZZ=1 

Para melhor compreender o funcio- 
namento da rotina, vamos examinar em 
detalhe um exemplo. Suponhamos que 
devemos ordenar uma lista de niimeros 
apresentada nesta ordem: 

67 35 72 19 47 38 11 96 

A rotina divide a lista em duas ou- 
tras e compara o pritneiro valor de ca- 
da uma delas. Se o primeiro valor da pri- 
meira lista € maior, ocorre uma troca. 
Neste exemplo, os valores 67 e 47 sao 
comparados e trocados. 



47 35 72 19 



67 38 11 96 



Ap6s a troca, o par de valores seguin- 
te e comparado — 35 e 38. Nesse caso, 
nao ha troca. A rotina compara, entao, 
72 e 11, trocando-os e, por fim, 19 e 
96, obviamente sem troca. A lista fica 
assim: 



47 35 11 19 



67 38 72 96 



Neste ponto, cada tnetade e nova- 
mente dividida: 



47 35 



11 19 : 67 38 : 72 96 



A rotina compara e troca o primeiro 
valor, 47, com o terceiro, 11. Depois, 
compara e troca o segundo, 35, com o 
quarto, 19. O 35 assume agora a quarta 
posicao. O valor no terceiro posto, 47, 
que ja foi trocado uma vez, e compara- 
do com 67. Desta vez nao ha troca. O 
quarto valor, 35, e comparado com 38 
e permanece onde esta. O quinto valor, 
67, e comparado com o setiino, 72, e fi- 
ca na mesma posicao. Por fim, 38 e 96 
sio comparados e nao trocam de lugar. 

Veja abaixo a seqiiencia. Como no 
exemplo anterior, os valores compara- 
dos estao entre parenteses. Verifique 
se, na linha seguinte, alguma troca foi 
efetuada: 



(47) 35 
11 (35) 



11 
11 
II 
11 
11 



19 
19 
19 
19 
19 



(II) 19 
47 (19) 

(47) 35 
47 (35) 
47 35 
47 35 
47 35 



67 38 
67 38 

(67) 38 
67 (38) 

(67) 38 
67 (38) 
67 38 



72 
72 
72 
72 



% 
96 
96 
96 



(72) 96 
72 (96) 
72 96 



A lista e, entao, dividida da seguinte 
maneira: 

11 : 19 : 47 : 35 : 67 : 38 : 72 : 96 





Os valores sao novamente compara- 
dos dois a dois. Como voce pode obser- 
var, a rotina compara somente valores 
adjacentes: o primeiro com o segundo, 
o segundo com o terceiro, o terceiro com 
o quarto e assim por diante, ate o fim 
da lista: 



( 



(19) 
(19) 
19 
19 
19 
19 



47 : 35 : 67 : 38 : 72 :96 
(47): 35 : 67 : 38 : 72 :96 
(47):(35): 67 : 38 : 72 :96 
35 :(47):{67): 38 : 72 :96 
35 : 47 :(67):(38): 72 :96 
35 : 47 : 38 : {67} : (72) : % 



A rotina faz o mesmo ate os ultimos 
valores, que ja estao em ordem, e volta 
ao inicio: 



(11) 
11 
11 



(19) : 35 : 47 : 38 : 67 : 72 :96 

(19) :(35): 47 : 38 : 67 : 72 :96 

19 :(35):(47): 38 : 67 : 72 :96 



, 
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11 : 19 : 35 :(47):(3S): 67 : 72 :96 
11 : 19 : 35 : 38 :(47):(67): 72 :96 

Embora a lista ja esteja ordenada, o 
computador executa mais uma passa- 
gem completa. Cada novo valor pode 
agora ser comparado com essa lista co- 
mo o faz a rotina tipo bolha — isto e, 
estabelecendo cornparacoes aos pares. 



A ROTINA DE SHELL-METZNER 



A rotina de ordenacao de Shell- 
Metzner, derivada da rotina de Shell, e 
ainda mais rapida e utiliza o mesmo 
principio de busca binaria. 



2999 REM SHELL-MELTZNER SORT 

3000 LET Z-AA 

3010 LET 2-INT (2/2) 



3020 IF Z-0 THEN RETURN 

3030 LET Y-AA-Z: LET ZZ-1 

3040 LET X=ZZ 

3050 LET XX=X+Z 

3060 IF A(X)OA(XX) THEN GOTO 

3090 
3070 LET W-A(X) : LET A(X)-A(XX) 
: LET A(XX)-W: LET X=X-Z 
3OB0 IF X>-1 THEN GOTO 3050 
3090 LET ZZ-ZZ+1 
3100 IF ZZOY THEN GOTO 3040 
3110 GOTO 3010 

2999 REM ORDENACAO 'SHELL-METZN 
BE' 

3000 LET Z-AA 
3010 Z-INTC2/2) 

3020 IF Z-0 THEN RETURN 

3030 Y-AA-Z: ZZ-1 

3040 X-2Z 

3050 XX-X+Z 

3060 IF A<X)OA(XX) THEN 3090 



3070 W-A(X) :A(X)-A(XX) :A{XX)-W: 

X-X-Z 

3080 IF X>-1 THEN 3050 

3090 ZZ-ZZ+1 

3100 IF ZZOY THEN 3040 

3110 GOTO 3010 

Se voce trabalha com urn MSX, be- 
neficie-se de seii poderoso BASIC, tro- 
cando a linha 3070 para: 



m 



30/0 SWAP A(X) ,AfXX) :X-X-Z 

Adicione esta rotina ao seu programa 
de demonstracao e para experimenti-lo 
sera preciso modificar a referenda de 
linha da linha 90, 

Como voce vai notar, ela e muito 
mais rapida que as outran rotinas, o que 
fica evidente especialmente se a compa- 
ramos com a rotina tipo bolha para mais 
de cinqiienta numeros. 



m 
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'ftf* 




A vent ura que se preze, com reis, rai- 
nhas e castelos, nao dispensa a partici- 
pacao de um temfvel dragao. 

Nao e dificil incluir esse personagem 
em seus jogos. Para cria-lo e dar-lhe ani- 
macao — Tazendo com que cuspa fogo 
— , voce pode utilizar as t6cnicas ji vis- 
tas nos programas do sapo e do tanque, 
apresentados no artigo publicado a pa- 
gina 341, 



HM5EE] 



Para montar o "quadriculado" na 

memdria do computador, usaremos o 

■ program a dado no artigo anterior. O 

I Apple, o TK-2000 e tambem o MSX nao 



precisam desse tipo de programa. A lis- 
tagem para o Spectrum e o TRS-Color 
encontra-se naquele artigo. 

Depois de carregar — ou digitar — 
o programa criador de quadriculado, 
use RUN para faze-lo funcionar. Quan- 
do o programa acabar de rodar, di- 
gite NEW e < ENTER >. (Nada dis- 
so se aplica ao MSX, ao Apple e ao 
TK-2000.) Em seguida, digite o progra- 
ma adequado para seu computador, 

Os usuarios do Apple, do TK-2000 e 
do MSX precisarao carregar — ou digi- 
tar — o programa do tanque, pois as li- 
nhas apresenladas neste artigo sao mo- 
dificacoes a serem feitas naquele progra- 
ma, e nao funcionarao sozinhas. 



Em todos os computadores, exceto 
no MSX, use as teclas P, L, X e Z para 
mover o dragao. No MSX devem ser uti- 
lizadas as teclas do cursor. A barra de 
espaco faz o dragao cuspir fogo. 



10 FOR n-USH "a" TO USR "t"+7 
! READ a: POKE n,a: NEXT n 
20 LET prmt-32400: LET b- 
32402: IF PEEK 23733-25S THEN 
LET print-65200: LET b-65202 
90 BORDER 7: PAPER 7: INK 4: 
CLS ! PRINT AT 8,15;: RAND 
USR print 

100 LET y-8: LET x-15: LET yl- 

S: LET xl-15: LET Z-l 




Vimos, em artigo anterior, como 
desenhar e dar movimento a um tanque 
de guerra a a um sapo. Com as tecnicas 
e programas ja apresentados, desenhe 
tambem um dragao que cospe fogo. 



110 LET aS-INKEY$: IF a$-" 

THEN GOTO 110 

115 IF a$-" " THEN GOTO 200 

120 IF aS-"z" AND x>l THEN 

LET xl-X-1: LET z-1 

130 IF aS-"x" AND x<28 THEN 

LET xl-x+1: LET 1-2 

140 IF aS-"p" AND y>0 THEN 

LET yl-y-1 

150 IF aS-"l" AND y<19 THEN 

LET vl-y+1 

160 PRINT AT y.x;: POKE b,0: 

RAND USR print 

170 LET x-xl: LET y-yl 

180 PRINT AT y.x;: POKE b,z: 

RAND USR print 

190 GOTO 110 

200 IF Z-2 THEN GOTO 300 

220 PRINT INK 6; AT y.X-l;CHRS 



162 

230 PAUSE 1 

240 PRINT AT y, 



x-1;' 



COMO COLOCAR UMA NOVA 

FIGURA NO QUADRICULADO 

MOVIMENTOS NA TELA 



FACA DRAGAO 



CUSPIR FOGO 



260 GOTO 110 

300 PRINT INK 6; AT y,x+3;CHR$ 

163 

310 PAUSE 1 

320 PRINT AT y,x+3;" " 

330 GOTO 110 

1000 DATA 6,214,249.63,240.0,3, 

15,96,64,192,224,224,192,196.20 

4,0,0,0,0.0,0,0,0 

1010 DATA 63,125,107.245,249,12 

7.12 7,51,244,196,194,255,128.19 

2,224,240,0,0,0.2,6.14,6,10 

1020 DATA 55,23,7.3,1,0,4,7,254 
,255.239.239,224,192.128,128,56 
,240,192,0,0,0,0,0 



1030 DATA 0,0,0,0.0,0,0,0.6.2,3 

,7,7,3,35,51,96,107,159,252.15, 

0,192,240 

1040 DATA 0,0.0,64,96,112,96,80 

,47,33,65,255,1,3,7,15,252.190. 

182,175.159,254.254.204 

1050 DATA 28,15.3.0.0,0,0,0,127 

. 255 , 247 , 247 , 7 , 3 , 1 , 1 , 2 36 , 232 , 22 

4,192,128,0.32,224 

1060 DATA 8,68,50.139,50,68,8,0 

,16,34,76,145,76,34.16,0 

5000 FOR i-1 TO 5 

5010 SAVE "MC0 301" 

5020 NEXT 1 



D 



20 PCLEAR 5 




30 CLEAR 200,32000 

40 FOR 1-32300 TO 3258? 

SO READ N 

60 POKE I.N 

70 NEXT 

80 DIM AC2) ,B(2) ,C{2) 

90 PMODE 4.1 

100 PCLS 

110 FOR 1-1536 TO 1760 STEP 32 

120 READ N 

130 POKE I.N 

140 NEXT 

150 GET (0.0)-l7.7) ,A 

160 FOR 1-1536 TO 1760 STEP 32 

170 HEAD N 

180 POKE I.N 

190 NEXT 

200 GET (0.0)-(7,7) ,B 

210 PCLS 

220 SCREEN 1,0 

230 T-l 

240 DP-3500 

250 POKE 32700, INTCDP/256) 

260 POKE 32701, DP"256*INT (DP/25 

6) 

270 POKE 32250 ,T+DT*2 

280 EXEC 32000 

290 LP-DP 

300 IF PEEK (338) -251 THEN DP-DP 

-32:GOTO 360 

310 IF PEEK (342) -253 THEN DP-DP 




O dragio do TRS-Color i forntado por 
blocos grificos tit- ojto por oito pantos. 



+32; GOTO 360 

320 IF PEEK (340) -247 THEN DP-DP 

-l:T-T+l:DT-l:GOTO 360 

330 IF PEEK (338) -247 THEN DP-DP 

+l:T«T+l:DT-Q:G0TO 360 

340 IF INKEYS-" " AND T-2 GOSUB 
410 

350 GOTO 300 

360 IF DP<IS36 OR DP>6941 THEN 

DP-LP 

370 IF T>2 THEN T-l 

380 POKE 32250,0 

390 EXEC 32000 

400 GOTO 250 

410 IF DT-1 GOTO 470 

420 YP-INT( (DP-1536)/32) 

430 XP-8*(DP-1533-YP*32) 

440 IF XP>255 THEN 530 

450 PUT (XP,YP)-<XP+7,YP+7) ,A 

460 GOTO 510 

470 YP-INT((DP-1536)/32) 

460 XP«8*{DP-1537-YP*32) 

490 IF XP<0 THEN 530 

500 PUT {XP,YP)-(XP+7,YP+7) ,B 

510 FOR 1-1 TO 200:NEXT 

520 PUT(XP,YP)-(XP+7,YP+7) ,C 

530 RETURN 

540 DATA 0,0,0.0.0,0.0,0,6,2,3. 

7. 7. 3, 35. 51. 96. 1'07, 159, 252, 15,0 

,192,240 

0. 64, 96, 112, 9 
6,47,33,65,255,3,7, 
15, 31, 248,188 182, 
175,159,255.254,254 
560 DATA 

80.28.15.7.1,0,0,0. 
63,255,255.255,255, 
15.2,3,252,248,252, 
252, 248, 48,82,222 

570 DATA 0,0,0,0,0,0,0.0.0.6,2, 

3,7.7,3,33,0.96.107.159,252,15, 

192.240 

580 DATA 0,0,0,64.96,112,96,80, 

49,47,33,47,49,99,7.15,252,190, 

18 2,175.159,254.254,156 

590 DATA 28,15,3.0,0,0,0,0,127, 

255.239.239,15.6.2.3,220.216,19 

2,128,0.0,64.192 

600 DATA 6,214,249,63,240.0,3,1 

5,96,64.192,224.224,192.196,204 

.0.0,0,0,0,0,0.0 

610 DATA 31,61.109,117.249.255. 

127,127.244,196.194,255.192.224 

,240,248,0.0,0.0,2,6,14.6 



550 DATA 0,0,0, 



620 DATA 63,3 
23.252,255,25 
92.10,56,240. 

630 DATA 0.6, 

5.0.96,64,192 

.0.0,0,0,0,0, 

640 DATA 63,1 

,127,57,140,2 

,224,240,0,0. 

650 DATA 59,2 

255,247,247.2 

0,192,0,0.0,0 

660 DATA 0,16 

6 

670 DATA 0,8, 



1,63,63,31.12,74,1 

5,255.255.240.64,1 

224.128,0,0,0 

214.249,63,240,3,1 

.224,224.192,132.0 



25,109,245,249,127 

44,132,244,140.198 

0,2,6.14,6.10 

7,3,1,0,0,2,3.254, 

40.96.64,192.56,24 

,0 

,34,76,145,76.34.1 

68.50.137,50.68,8 



ffU 



As linhas a seguir sao modificagoes 
que devem ser feitas no programa que 
move o tanque de guerra. 

5 CLEAR 1000;COLOR 12,15,12 

20 FOR 1-1 TO 32*4 

25 READ A:AS-AS+CHR$(A) 

30 NEXT I 

35 FOR I»=l TO 32*4 

40 READ B:B$-B3+CHRS(B) 

45 NEXT I 

50 SPRITES (0) -LEFTS (A$, 32) 

55 FOR 1-1 TO 3 

60 SPRITES {I ) -MIDS (AS , 1*32+1 . 32 

) 

65 NEXT I 

70 SPRITES (4) -LEFTS CBS, 32) 

75 FOR 1-5 TO 7 

80 SPRITE$(I)-MtDS(B$, CI-4)*32+ 

1,32) 

85 NEXT I 

1.10 X=100:Y-90:F«1 

111 PUTSPRITEO, (X+16.Y-8) .12,0 

112 PUTSPRITEI, {X+16, Y+8) ,12.1 

113 PUTSPRITE2. (X, Y+8) , 12, 2 
500 PUTSPRITEO, (X+16.Y-8) ,12.0 
510 PUTSPRITE1, (X+16.Y+8) ,12. 1 

515 PUTSPRITE2. (X, Y+8) ,12,2 

516 PUTSPR1TE3, (X+3 2,209) ,12,3 
600 PUTSPRITEO, (X+16. Y-8) , 12,4 
610 PUTSPRITE1, (X+16, Y+8) ,12,5 

615 PUTSPRITE2. (X+32, Y+8) ,12.6 

616 PUTSPRITE3, 1X.209) ,12,7 
700 PUTSPRITEO, (X+16, Y-8) ,12,0 
710 PUTSPRITEI , (X+16, Y+8) ,12,1 

715 PUTSPRITE2, (X, Y+8) ,12,2 

716 PUTSPRITE3, (X+32, Y) ,6,3 
800 PUTSPRITEO, {X+16. Y-8) , 12,4 
810 PUTSPRITEI , (X+16, Y+8) .12.5 

815 PUTSPRITE2, (X+32, Y+8) .12,6 

816 PUTSPRITE3, (X.Y) ,6.7 

5000 DATA 0,0,0,0,0.0,0,0,6,2,3 

.7. 7,3, 35, 51, 1), 0.0, 0,0, 0.0, 0,96 

, 10 7 , 1.59 , 25 2 , 15 . , 192 , 240 

5010 DATA 4 7,35.67,25 5.1.3,7,15 

. 12 7 , 255 . 247 . 247 . 7 , 3 . 1 , 1 . 252 , 19 

0,18 2,175,159,254,254,204,232,2 

24.224,192,128,0.32.224 

5020 DATA 0,0,0,0,0,0,0,0.0,0,0 

,0,0, 0,0, 0,0, 0.0. 64, 96, 112, 96, 8 

0,28.15,3,0,0,0,0,0 

5030 DATA 16,34,76,209,76,34,16 

,0,0.0,0.0.0.0,0.0,0.0.0,0,0,0. 

0,0,0.0.0,0.0,0,0,0 
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5040 DATA 0,0,0,0.0,0,0,0,6,214 
,249,63.240,0,1,7,0,0,0,0,0.0,0 
,0.96,64,192,224,224,192,196,20 

4 

5050 DATA 63,125,109,245,249.12 

7, 127, 51, 23. 7, 3, 1,0, 0.4.7.244.1 

96,194.255,128.192,2 24,240,254, 

255,2 39,239,2 24,128,128,192 

5060 DATA 0,0,0,2.6,14.6,10,56, 

240,192,0.0.0.0,0.0.0,0,0.0,0,0 

,0,0.0,0,0,0,0,0,0 

■J070 DATA 0,0,0.0,0,0,0.0.0,0,0 

. . . , . , 8 , 68 , SO . 1 39 , 50 . 68 . 8 , 
'0,0.0,0,0,0,0,0,0 
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H3E>] 

Carregue o programa que move urn 
tanque na tela usando DRAW; fa?a ne- 
le as seguintes modificacoes: 

30 FOR I - E TO E + 4.1 + 18 * 

32 

110 IF K$ - "Z" AND X > 16 THE 




























































































































































































































































































































































































































































NX=X-3:F»0: COTO 140 
170 DRAW 1 AT LX.LY + 8 
180 DRAW 2 AT LX.LY + 16 
190 DRAW 3 AT LX + S , LY 
200 DRAW 4 AT LX + B.LY + 8 
205 DRAW 5 AT LX + 8,LY + 16 
210 DRAW 6 AT LX + 16, LY 
220 DRAW 7 AT LX + 16. LY + 8 
225 DRAW 8 AT LX + 16. LY + 16 
260 DRAW 11 AT LX,LY 
270 DRAW 12 AT LX.LY + 8 
275 DRAW 13 AT LX , LY + 16 
280 DRAW 14 AT LX + S.LY 
290 DRAW 15 AT LX + 8 , LY + 8 
295 DRAW 16 AT LX + 8 , LY + 16 
300 DRAW 17 AT LX + 16, LY + 8 
310 DRAW 18 AT LX + 1.6. LY + 16 
340 DRAW 1 AT X.Y + 8 
350 DRAW 2 AT X,Y + 16 
360 DRAW 3 AT X + 8,Y 
370 DRAW 4ATX+8.Y+8 
375 DRAW 5 AT X + 8.Y + 16 
380 DRAW 6 AT X + 16, Y 
390 DRAW 7 AT X + 16, Y + 8 
395 DRAW 8 AT X + 16,Y + 16 
420 DRAW 11 AT X,Y 
430 DRAW 12 AT X.Y + 8 
435 DRAW 13 AT X.Y + 16 
440 DRAW 14 AT X + 8, Y 
450 DRAW 15 AT X + 8,Y + 8 
455 DRAW 16 AT X + BJ + 16 
460 DRAW 17 AT X + 16, Y + 8 
470 DRAW 18 AT X + 16. Y + 16 
510 DRAW 9 AT X + 30, Y 
540 DRAW 9 AT X + 30. Y 
570 DRAW 10 AT X - 12, Y 
600 DRAW 10 AT X - 12, Y 
2000 DATA 20 ,0 .42 ,0 .74 ,0 
.106 .0 ,138 ,0 ,170 ,0 ,202 , 

,234 ,0 ,10 ,1 ,42 .1 ,74 ,1 
.106 ,1 ,138 ,1 ,170 ,1 ,202 ,1 

,234 ,1 ,10 ,2 ,42 ,2 ,74 ,2 , 
106 ,2 ,138 ,2 
2010 DATA ,72 .73 ,73 ,218 

.219 ,219 .74 ,73 .73 .218 .21 
9 ,27 ,87 ,109 ,73 .209 .219 ,5 
9 ,191 ,41 ,77 .73 .218 ,219 .3 

1 .23 ,0 ,0 , . ,0 


O Spectrum, o MSX, o Apple e o TK-2000 utitizam este dragao como modelo. 

2020 DATA ,72 ,41 .109 ,20 ,219 ,155 ,0 ,0 ,0 ,0 .0 
9 ,63 .255 ,155 ,73 .73 ,173 ,2 2110 DATA ,72 ,73 ,109 ,21 
19 .219 ,155 ,73 ,73 ,137 ,219 8 ,255 ,31 ,55 ,45 ,45 ,77 ,213 
,219 ,155 ,73 .73 ,137 .219 .21 ,63 ,63 .255 .42 ,45 ,77 ,137 
9 ,155 ,0 ,0 ,0 ,0 ,0 ,0 ,219 ,219 ,155 ,73 ,73 ,173 ,59 
2030 DATA .72 ,73 ,109 ,21 .63 ,223 ,19 ,0 ,0 .0 

8 .723 ,219 ,74 ,73 ,41 ,213 .6 2120 DATA ,72 ,45 ,45 ,173 
3 ,223 ,155 ,73 ,9 ,45 ,213 ,25 ,251 ,63 .63 ,87 ,109 ,109 ,21 
5 ,219 .83 ,105 .9 ,173 ,59 ,22 3 ,31 ,31 .63 ,55 .45 ,45 .77 , 
3 ,255 .2 ,0 ,0 ,0 ,0 213 ,63 ,63 ,63 ,87 ,45 ,45 ,45 
2040 DATA .72 ,13 .45 ,173 .213 ,255 ,59 ,159 ,0 

,59 ,223 .251 ,10 ,77 .9 ,173 2130 DATA .72 .109 .45 ,21 
,59 ,63 ,63 .63 ,76 ,73 ,9 ,213 3 .63 ,31 .223 ,74 ,73 .45 .213 

,255 ,219 ,83 .73 ,41 .173 ,59 .255 ,219 ,83 .73 .73 ,213 ,21 

,63 .223 ,19 ,0 ,0 9 ,219 ,83 ,73 ,105 ,209 ,63 .2 
2050 DATA .8 .45 ,45 .45 , 23 ,155 ,0 ,0 .0 .0 ,0 
213 ,63 .63 ,63 .55 ,45 .109 ,4 2140 DATA ,8 ,109 ,73 .209 
5 ,213 ,63 ,31 .63 ,119 ,73 ,41 .219 .219 ,23 ,109 .73 ,137 .2 

,173 ,59 ,223 .219 .74 .73 .9 19 .219 ,63 .46 .109 ,73 ,209 , 
,213 ,223 .219 ,19 ,0 219 ,219 ,55 ,109 .9 ,77 .218 . 
2060 DATA ,8 ,109 .73 ,209 59 ,223 .55 .0 ,0 .0 ,0 

,255 .31 .191 ,77 ,45 ,45 ,213 2150 DATA ,40 .45 .13 .77 

,27 .63 ,63 ,119 ,73 .45 ,173 .218 .251 ,27 ,55 .109 ,73 .141 
,219 ,219 .155 ,109 ,73 ,137 .2 .59 ,63 .63 .63 .110 ,73 ,73 . 
19 .27 ,63 ,55 .0 ,0 ,0 218 ,219 .27 .55 .45 ,77 .73 .2 
2070 DATA ,40 ,45 ,45 ,77 18 .219 ,63 ,55 ,0 ,0 
,218 ,63 ,63 .31 ,110 .109 ,109 2160 DATA ,40 .45 ,45 ,109 

,26 .63 .255 ,31 .110 .41 .45 .26 ,63 ,63 ,63 .55 ,45 ,13 . 
,173 ,27 ,63 ,63 ,63 .46 ,45 ,4 45 ,173 ,59 ,63 .31 .63 ,46 , 
5 ,109 ,218 ,59 ,223 .55 109 ,73 ,209 ,219 ,219 ,55 . 
2080 DATA ,40 .109 ,109 ,2 77 ,73 .137 ,219 .219 ,27 ,6 

09 .219 .31 .63 .46 ,109 ,73 .2 2170 DATA ,72 ,73 ,73 ,218 
09 ,219 ,219 ,51 ,77 .73 ,137 , .219 ,219 ,74 .73,73,218 ,22 
219 ,219 ,155 ,9 ,77 .73 .218 , 3 ,219 ,74 ,73 ,109 ,218 ,63,2 
219 .59 ,55 ,0 ,0 .0 .0 23 .83 ,73 ,41 ,141 ,27 .31 .22 
2090 DATA ,72 ,105 ,73 ,21 3 ,19 ,0 .0 ,0 ,0 ,0 

8 ,223 ,251 ,10 ,77 .109 ,209 , 2180 DATA ,72 .45 .77 . 
223 ,251 ,119 ,77 ,109 .209 ,25 209,219 ,59 .63 ,46 ,77 

1 ,27 ,159 ,73 ,77 ,137 .219 .2 .73 ,209 ,219 ,219 ,83 

19 .155 .0 ,0 ,0 .0 .0 .0 .?3 ,73 ,209 .219 .." 

2100 DATA ,72 ,9 ,77 ,209 -219 ,83 ,73 .73 C.-' , 

,27 .223 ,187 .9 .109 .105 ,26 .209 ,219 .21 . 

,255 .223 .115 ,41 ,77 .141 ,21 9 ,19 .0 ,0 Cjv ^M^ f A 

9 .223 ,187 ,73 ,105 .137 .219 .0 .0 ,0 
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Se voce ja sabe elaborar graficos com 
UDG (Caracteres Definidos pelo Usua- 
rio), e quase certo que queira move-los 
pela tela. Para tanto, sera necessario uti- 
lizar os comandos GET e PUT, que ja 
vimos muitas vezes na secao Programa- 
fao de Jogos, 

Poderiamos imaginar o GET como 
um comando capaz de "fotografar" 
uma Area retangular da tela de alta re- 
solucao do TRS-Color. O que estiver 
naquela area — um UDG ou qualquer 
outro grafico feito com LINE, CIRCLE 
ou DRAW — sera armazenado numa 
matriz (veja artigo na pagina 192). 

PUT e o oposto de GET: ele "colo- 
ca" a fotografia (conteudo da matriz) 
em qualquer lugar da tela. Usar esse co- 
mando e muito mais rapido que redese- 
nhar o grafico por outros metodos e, 
com ele, a ideia de movimento pode ser 
facilmcnte simulada: bast a col oca r 
(PUT) uma imagem em diferentes posi- 
coes na tela ou, entao, colocar imagens 
diferentes repetidamente. 



BICICLETA 


Digite e rode este programa; ele usa 
GET e PUT para movimentar um UDG 
de uma bicicleta. 
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10 PMODE 4,1:PCLS 

20 DIM BY (5) 

30 FOB K=1536 TO 1856 STEP 32 

40 READ A,B,C 

50 POKE K, A: POKE K+l,B:POKE K+2 

.C 

60 NEXT 

70 SCREEN 1,1 

80 GET (1,Q)-(18,11) ,BY,G 

90 PCLS 

FOR K-0 TO 238 



100 

1110 PUT (K.90) 
ET 



(K+17,100) ,BY.PS 



Com os comandos GET e PUT podemos 
armazenar figuras em matrixes e, mais 
tarda, traze-las de volta a tela. 
Aprendertdo a utiliza-los, voce 
animara os mais variados desenhos. 



120 NEXT 

130 GOTO 90 

140 DATA 1.193,192,0,129,32,0,2 

55,64,1,134,0,14,139,128,19,86. 

64 

150 DATA 36,233,32,47,233,32,32 

,104,32,17.100,64,14,3,128 



Os DATA (dados) das linhas 140 e 
1 50 sao acessados e depots inseridos na 
tela, via comando POKE, nas linhas 30 
a 60. A bicicleta e desenhada no canto 
superior esquerdo, ou seja, no comeco 
da tela. Quando Voce for inserir um gra- 
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ANIMACAO DE UM CARACTERE 
DEFINIDO PELO USUARIO (UDG) 

USO DE MATRIZES 

COM OS COMANDOS GET E PUT 
"FOTOGRAFE" A TELA 



COMO DIMENSIONAR 



CORRETAMENTE UMA MATRIZ 



COLOQUE GRAFICO 



ONDE QUISER 



TECNICAS DE ANIMACAO 



fico na tela e depois usar GET e PUT, 
desenhe-o nessa posicao, pois assim sa- 
bera exatamente onde eie esta. Conver- 
ter posicoes de memtSria em posicoes 
de tela pode nao ser facil, devido a va- 
riacoes entre OS PMODE. 




A linha 80 faz urn GET (ou "tira uma 
fotografia") da bicicleta. A linha 90 lim- 
pa a tela antes que as linhas 100 e 120 
movimentem a bicicleta. A linha 1 10 
PUT ("coloca") a bicicleta em uma po- 
sicao diferente cada ver que passa pelo 
laco FOR,,. NEXT. 



C0M0 DIMENSIONAR UMA MATRIZ 



Sempre que usar GET num progra- 
ma, voce precisara dimensionar (DIM) 
uma matriz para armazenar as informa- 
coes sobre o grafico. Para calcular o ta- 
manho da matriz faca o seguinte: 

1) Depois de desenhar o grafico, de 
preferencia em papet quadriculado, tra- 
ce um retangulo, "enquadrando" intei- 
ramente a figura. Conte quantos qua- 
drados existem na primeira linha e quan- 
tos existent num dos lados. Multiplique 
estes dois numeros — o result a do sera 
o numero de quadrados que o desenho 
ocupa. For exemplo: o retangulo queen- 
volve a bicicleta tern dezoito quadrados 
de largura por doze quadrados de altu- 
ra. Multiplicando-os, obtem-se o nume- 
ro total de quadrados, 216. 

2) Em seguida, calcule o numero de 
bytes de memoria necessario para arma- 
zenar todos esses quadrados. Em PMO- 
DE 3 e 4 divide-se o niimero de quadra- 
dos por 8, em PMODE 1 e 2 divide-se 
por 16, e em PMODE por 32. Como 
a bicicleta foi desenhada em PMODE 4, 
divide-se 21 6 por 8, obtendo-se 27. O re- 
sultado deve ser um numero inteiro de 
bytes e, por isso, as vezes e preciso 
ajusta*lo. E, seja qual for o numero ob- 
tido, lemos sempre que arredonda-lo pa- 
ra cima, nunca para baixo. 

3) Para calcular o tamanho que deve 
ter a matriz, divida o niimero de bytes 
por 5 (o divisor e sempre 5, nao impor- 
ta o PMODE que esta sendo usado). 

Voltando ao exemplo da bicicleta: 
temos 27 bytes para armazenar na ma- 
triz; portanto. 27/5 = 5,4. Novamente, 
se o result ado nao for inteiro, deve-se 
arredonda-lo para cima — 6, nesse ca- 
se. A linha 20 diz DEM BY (5) porque 
as matrizes comegam em 0. 

Aqui esta um resumo dos divisores 
necessarios para calcular o tamanho das 
matrizes nos programas graficos: 



Para calcular o numero de: 



PMODE 


Bytes 


Matrizes 


4 


8 


5 


3 


8 


5 


2 


16 


5 


1 


16 


5 





32 


5 



Pode-se usar GET com todo tipo de 
grafico na tela de alta resolucao do com- 
putador. Quer utilizemos um UDG, os 
comandos PSET e PRESET, DRAW, 
ou qualquer combinacao de comandos 
graficos, sera sempre possivel armaze- 
nar figuras em matrizes por meio de 
GET e coloea-las (PUT) de volta a tela 
mais tarde. 

Para armazenar um grafico numa 
matriz previamente dimensionada, vo- 
ce precisara dizer ao computador onde 
encontrar o grafico na tela e em qua! 
matriz pretende armazena-lo. Vejamos 
esta linha do programa da bicicleta: 

80 GET(l.O)- C18.11) .BY.C 

Os numeros nos paremeses sao as 
coordenadas de cantos dtagonalmente 
opostos do retangulo que envolve o gra- 
fico. Voce pode especificar os cantos 
que quiser e em qualquer ordem, desde 
que sejam diagonalmente opostos. 

A area armazenada nao compreende 
todo o UDG que definimos, mas ape- 
nas as partes que realmente content a 
imagem — porque a bicicleta nao ocupa 
toda a extensao de 24 quadrados. Co- 
mo o GET nao nos limita a mover ape- 
nas imagens de oito por oito, podemos 
movimentar o que bem entendermos. 

Na com inuacao da linha 80, BY man- 
da o computador armazenar o grafico 
na matriz BY, DlMensionada nalnha 20. 

G significa "detalhe Grafico comple- 
to". Pode-se omiti-lo em certos casos 
(que expllcaremos depois), mas em se- 
rai e aconselhavel usa-lo. 

Se estiver usando UDG, convent sem- 
pre inseri-Ios (POKE) no canto superior 
esquerdo da tela, como foi dito anterior- 
mente, para facilitar o ajuste do GET. 
Lembre-se de que quando os inserimos 
na tela a posicao da imagem nao esta 
contida em coordenadas comuns. O 
GET "fotografa" a imagem de uma cer- 
ta coordenada de tela e, por isso, sera 
preciso converter a posicao de mem6ria 
na qual introduzimos os UDG em coor- 



i 



denadas de tela equivalentes. Essa con- 
versao nao e facil, ja que varia confor- 
meoPMODE. A insercao nas posicoes 
de mem6ria do comedo da tela (a partir 
da posicao 1536) Facilita o calculo da 
coordenada de tela do UDG. O canto 
superior esquerdo deve estar na coorde- 
nada (0,0) e, sabendo o tamanho do 
grafico, sera simples calcular as coorde- 
nadas do canto inferior direito do UDG 
quando o "fotografarmos". 



USO DO PUT 



Depois de empregarmos o GET para 
armazenar o grafico na mernbria, deve- 
mos limpar a tela com PCLS, antes de 
coloca-lo (PUT) de volta na tela. 

Aqui est a a linha do PUT no progra- 
ms da biricleta: 

110 PUT(K,90)- (K+17,100) , BY , 

PSET 

Dentro dos parenteses, como no 
GET, encontram-se as coordenadas dos 
cantos diagonalmente oposlos que espe- 
cificam a area na qual queremos colo- 
car a imagem. BY e a matriz que con- 
tent a bicicleta. 

A ultima parte da linha e o PSET, 
que faz o computador colocar o grafi- 
co na tela exatamente como foi desenha- 
do, sobrepondo-o ao que estiver naque- 
las posicoes. 

Existem, porem, outras opcoes. 
PSET pode ser substituido por PRE- 
SET, OR, AND, ou NOT, que nos per- 
mitem manipular o grafico. 

PRESET diz ao computador para co- 
locar o grafico na tela no modo inver- 
so. No modo de duas cores, estas se in- 
vertem; no de quatro {modo 0), o ver- 
melho fica verde, o azul fica amarelo e 
vice-versa; no modo 1, o laranja fica 
cinza, o eiano fica roxo e vice-versa. 

OR permite que se coloque o grafico 
armazenado na matriz junto ao que ja 
esta na tela. Ambos permanecem inal- 
terados, o que nao ocorre quando utili- 
zamos PSET, que elimina o que estiver 
na tela. 

AND mostra a juncao do que ja esta 
na tela com o grafico que se introduz na- 
quela posicao. 

NOT nao mostra nenhum conteudo 
da matriz: simplesmente inverte a area 
da tela em que a matriz sera colocada. 

A seguir , voce vera a utilizacao des- 
ses comandos em um programa. 

El 

10 PMODE 4,1 

20 DIM C(5> ,B1(5) ,B2(5) 

30 PCLS 



40 CIRCLE (7,7) ,7,1:PAINT {7,7} 

,1.1 

50 GET {0,0)-(14,14) ,C,G 

60 PUT (0,0)-(14,14) .C.NOT 

70 GET (0,0)-(14,14) ,B2,G 

80 PCLSlrSCREEN 1,0 

90 LINE'S, 191)-<104.0) ,PRESET:L 

INE<24,191)-{120,0) ,PRESET:PAIN 

T(10,191) ,0,0 

100 LINE (104,191)-(2QQ,0) ,PRES 

ET: LINE (120, 191) -(216,0) .PRESET 

:PAINT(110,191) .0,0 

110 FOR K-175 TO STEP -10 

120 X-14+(175-K)/2 

130 PUT {X,K)-(X+14,K+14) ,C,0R 

140 PUTtX+96,K)-(X+110,K+14) ,C» 

OR 

150 FOR J-l TO 100: NEXT 

160 PUTtX.K)-(X+14,K+14) .Bl.PSE 
T ^^^^^ 

170 PUT(X+96,K)-(X+110,K+14) , B2 

.AND 

180 NEXT 

190 goto 80 ■r^^^n^^BI 

Se observarmos bem as duas bolas 
subindo pela tela, veremos que sobram 
"pontas" ao longo das faixas pretas, Is- 
so acontece porque estamos tentando 
colocar um grafico retangular dentro de 
um inclinado e, cada vez que o progra- 
ma introduz um quadrado preto (lacu- 
na) para "apagar" a posicao anterior da 
bola, as "pontas" aparecem. 

Com a bola que caminha pela faixa 
da direita nao ocorre esse problema. 
Usando uma combinacao de PUT..., 
AND e PUT..., OR, as pontas sao cli- 
minadas. A linha 60 inverte a bola na 
tela e, depois, a linha 70 armazena-a na 
memoria. Quando o programa movi- 
menta a bola, a linha 140 coloca uma 
lacuna sobre a faixa com um 
PUT..., OR, de maneira que a bola an- 
terior seja apagada par uma "figura" 
de formato exatamente igual ao dela. 
Em seguida, um PUT..., AND coloca na 
tela a bola invertida. A combinacao de 
NOT com AND permite que a linha 170 
introduza a bola na tela sem super- 
posicad. 

Se voce quiser colocar um grafico 
na tela, num espaco que nao seja re- 
tangular (um ctrculo num triangulo, 
por exemplo), desenhe primeiro o ob- 
jeto. Coloque-o de volta a tela com 
PUT..., NOT e "fotografe-o" (GET) 
numa matriz, Mais tarde, para mostrar 
o grafico na tela, use PUT...,AND. 



QUANDO NAO USAR G 



Dissemos anteriormente que, em cer- 
tos casos, pode-se omitir o G do final 
do comando GET. Para saber quando 
omiti-lo, voce precisa de algumas infor- 
macoes sobre a tela do computador. 

Nos PMODE 1, 3 e 4 a tela grafica 



e dividida em 32 colunas verticals, cada 
uma com oito pontos de largura, en- 
quanto que nos PMODE e 2 a tela e 
dividida em dezesseis colunas de dezes- 
seis pontos de largura cada. Qualquer 
que seja o PMODE usado, a largura de 
cada coluna na tela corresponde a um 
byte na memdria 

Pode-se omitir o G do comando GET 
quando o grafico desenhado ocupa um 
niimero determinado de colunas e se 
quer movimenta-lo. Sem o G, bytes 
inteiros sao armazenados na matriz de- 
clarada. Se o grafico sobrepuser parte 
de colunas, voce precisara armazenar 
partes de bytes na matriz. Em outras 
palavras, sera preciso, de alguma manei- 
ra, armazenar bits da tela na matriz — 
e e esta a funcao do G. 

Retirando o G, voce tera problemas 
com graficos que sobrepdem outras colu- 
nas. Alem disso, nao podera usar PSET, 
PRESET, OR. AND ou NOT no PIT 
correspondente. A omissao do G, portan- 
to, torna menos flexivel o uso do PUT, 



ANIMACAO COM GET E PUT 



O GET e o PUT sao especialmente 
uteis nos programas de animacao grafi- 
ca. Esta e feita, em geral, por meio de 
dois metodos. 

O primeiro deles consiste em usar 
uma matriz vazia (lacuna) para apagar 
o grafico, antes de coloca-lo em outra 
posicao na tela. Para evitar problemas, 
verifique antes se o tamanho da lacuna 
e o mesmo do grafico. Esse procedimen- 
to ja foi visto em varios artigos de Pro- 
gramagao de Jogos. 

O segundo metodo, empregado na 
animacao da bicicleta, utiliza uma rnol- 
dura de pontos vazios ao redor do gra- 
fico. Depois que se decide quantos 
pontos o grafico se movera a cada pas- 
so, verifica-se se existe o mesmo niime- 
ro de fileiras de pontos rodeando o 
grafico. Isso significa que o novo grafi- 
co colocado na tela apaga o anterior. Se 
o grafico se movesse para todas as dire- 
eoes, quatro pontos a cada passo, por 
exemplo, preeisariamos de uma rnoldu- 
ra com quatro pontos de largura 
rodeando-o. No caso da bicicleta, o gra- 
fico se move um ponto de cada vez, da 
esquerda para a direita somente. Assim, 
quando ele foi armazenado, deixamos 
uma simples fileira de pontos vazios em 
seu lado esquerdo. 

Como exercfcio, tente animar outros 
desenhos usando GET e PUT. A unica 
maneira de entender e se familiarizar 
com o uso dos comandos PSET, PRE- 
SET, OR, AND e NOT e" experimenta- 
los em diversos graficos e situacSes. 
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jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 
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PROGRAMAQAO BASIC 

O TK-2000 nao dispoe da funcao IIMKEY* . Veja como substituf-la. 

APLICACOES 

Planeje UDG sem trabalho: deixe os calculos para o computador. 

PROGRAMACAO BASIC 

Os graficos lineares sao muito uteis a organizacao de 
informacoes nume>icas. Aprenda a program^-los. 

PROGRAMACAO BASIC 

Conheca o PRINT USING, poderoso comando auxiliar do PRINT. 

PERIFERICOS 

Fitas e discos danificados podem produzir 
efeitos desastrosos. Cuide deles. 
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